home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / lsdvizint.lha / fin2.s < prev    next >
Encoding:
Text File  |  1980-12-27  |  12.3 KB  |  575 lines
  1.     SECTION    MENU_MK_IX_,CODE_C
  2.     OPT    O+ C-
  3.     incdir  df0:,df1:
  4.     move.l    #Screen,Store
  5.     Move.w    Store,Plne+2
  6.     Move.w    Store,Plne1+2
  7.     Move.w    Store+2,Plne+6
  8.     Move.w    Store+2,Plne1+6
  9.     move.w  #56,d1
  10. loop:   bsr    Colour
  11.     Bsr    Cycle
  12.     dbf    d1,loop
  13.     move.w    #90,d1
  14. long    bsr    waveplace2
  15.         bsr    wavecycle
  16.         dbf    d1,long
  17.     move.l  #logo,store
  18.     lea    bitmap,a0
  19.     move.w    #4,d0
  20. planes: move.w    store,2(a0)
  21.      move.w    store+2,6(a0)
  22.      add.w    #8,a0
  23.      add.l    #4640,store
  24.      dbf    d0,planes
  25.      lea    logo+23200,a0
  26.      lea    cols+2,a1
  27.      move.w    #31,d0
  28. place:     move.w    (a0)+,(a1)
  29.      add.w    #4,a1
  30.      dbf    d0,place
  31.     MOVE.L    4,A6
  32.     LEA.L    GFxNAME,A1
  33.     CLR.L    D0
  34.     JSR    -552(A6)
  35.     MOVE.L    D0,GFXLOC
  36.     MOVE.L    GFXLOC,A6
  37.     MOVE.L    50(A6),OLDCOP
  38.     MOVE.L    #COPPER,50(A6)
  39.     MOVE.L    #$FFFF,D0
  40. COPDEL:    DBF    D0,COPDEL
  41.     MOVE.W    #%1000011111100000,$DFF096
  42.     MOVE.W    #$C000,$DFF09A
  43.     MOVE.L    #$FFFFFFFF,$DFF044
  44.     MOVE.W    #00,$DFF042
  45.     MOVE.W    #%0000100111110000,$DFF040
  46.     MOVE.W    #$4000,$DFF09A
  47.       jsr     start_muzak
  48.       JSR     STARS_ON
  49. START:    CMP.B    #$ff,$DFF006
  50.     BNE.S    START
  51.  
  52.     bsr     Colour
  53.     bsr     Cycle
  54.     bsr     waveplace2
  55.     bsr     wavecycle
  56.     jsr    scroll
  57.     jsr     replay_muzak
  58.     btst    #6,$bfe001
  59.     beq    reset
  60.     btst    #7,$bfe001
  61.     beq    reset
  62.     btst    #10,$dff016
  63.     beq    reset
  64.     BRA.s    START
  65.  
  66. RESET:    MOVE.W    #$C000,$DFF09A
  67.     MOVE.W    #$0F,$DFF096
  68.     jsr     stop_muzak
  69.     MOVE.L    GFXLOC,A6
  70.     MOVE.L    OLDCOP,50(A6)
  71.     MOVE.L    4,A6
  72.     MOVE.L    GFXLOC,A1
  73.     JSR    -414(A6)
  74.     CLR.L    D0
  75. EX:    RTS
  76. COPPER:    DC.W    $0104,$0000
  77.     DC.W    $0108,$0000,$010A,$0000
  78.     DC.W    $0092,$0038,$0094,$00D0
  79.     DC.W    $008E,$2C61,$0090,$2AC1
  80.     DC.W    $0120,$0000,$0122,$0000
  81.     dc.w    $0180,$0000,$0182,$0fff
  82. mod:    DC.W    $0108,$0001,$010a,$0001
  83.  
  84.     dc.w    $01a2,$0fff
  85.     dc.w    $01a4,$088f
  86.     dc.w    $01a6,$000f
  87.     dc.w    $01aa,$0fff
  88.     dc.w    $01ac,$088f
  89.     dc.w    $01ae,$000f
  90.  
  91. sp0:    dc.w    $0120,$0000,$0122,$0000    
  92. sp1:    dc.w    $0124,$0000,$0126,$0000    
  93. sp2:    dc.w    $0128,$0000,$012a,$0000    
  94. sp3:    dc.w    $012c,$0000,$012e,$0000    
  95. sp4:    dc.w    $0130,$0000,$0132,$0000    
  96. sp5:    dc.w    $0134,$0000,$0136,$0000    
  97. sp6:    dc.w    $0138,$0000,$013a,$0000    
  98. sp7:    dc.w    $013c,$0000,$013e,$0000    
  99.  
  100.     
  101. a set $180
  102. cols:    rept    32
  103.     dc.w    a,0
  104. a set a+2 
  105.       endr
  106.     dc.w    $3301,$fffe
  107. a set $3101
  108.         dc.w    a,$fffe
  109.     dc.w    $100,$1200,$0108,2
  110. plne1    dc.w    $e0,0,$e2,0
  111.     dc.w    $182,$fff
  112.     
  113. a set $4009
  114.     dc.w    a,$fffe
  115. colours:rept    56
  116.     dc.w    $180,0
  117.     endr
  118. colours1:
  119.     dc.w    $0180,$0
  120.     dc.w    a+$100,$fffe,$0180,$0
  121.     dc.w    $4301,$fffe,$0100,$5200
  122. bitmap  dc.w    $00e0,$0000,$00e2,$0000
  123.     dc.w    $00e4,$0000,$00e6,$0000
  124.     dc.w    $00e8,$0000,$00ea,$0000
  125.     dc.w    $00ec,$0000,$00ee,$0000
  126.     dc.w    $00f0,$0000,$00f2,$0000
  127.     dc.w    $0108,0 
  128. a set $5009
  129. wave:    rept    90
  130.     dc.w    a,$fffe,$0102,$0000
  131. a set a+$100
  132.         endr
  133. wave1:  dc.w    a,$fffe,$0102,$0000
  134.         dc.w    a+$100,$fffe,$0102,$0000
  135.                 
  136.         dc.w    a+$200,$fffe,$100,0
  137. a set $b009
  138.     dc.w    a,$fffe
  139. colours2:rept    56
  140.     dc.w    $0180,$0
  141. a set a+4
  142.     endr
  143. colours3:
  144.     dc.w    $0180,$0
  145.     dc.w    a+$100,$fffe,$0180,$0
  146. a set $d001
  147.         dc.w    a,$fffe
  148.     dc.w    $100,$1200,$0108,2
  149. plne     dc.w    $e0,0,$e2,0
  150.     dc.w    $182,$fff
  151.  
  152. a set a+$1000
  153.     dc.w    a,$fffe
  154. a set a+$100
  155.     dc.w    $108,-82,$182,$444
  156. a set a+$1000
  157.     dc.w    a,$fffe
  158.     dc.w    $100,0
  159.     DC.W    $FFFF,$FFFE
  160. GFXNAME:DC.B    "graphics.library",0
  161. GFXLOC:    DC.L    0
  162. OLDCOP:    DC.L    0
  163. store:  dc.l    0
  164.  
  165.     even
  166. Blit_Wait    Btst    #14,$dff002
  167.         bne.s    Blit_Wait
  168.         Rts
  169.             
  170. Colour:        lea colourtable,a0
  171.         add.w colourptr,a0
  172.         cmp.w #$8888,(a0)
  173.         bne colour1
  174.         clr.W colourptr
  175.         bra.s colour
  176. colour1:    move.w    (a0),colours1+2
  177.         Move.w    (a0),colours2+2
  178.         add.w #2,colourptr
  179.         rts
  180.             
  181. Cycle:        jsr    Blit_Wait
  182.         move.l    #colours+4,$dff050    ;a source IM
  183.         move.l    #colours,$dff054    ;d source
  184.         move.w    #$0000,$dff064    ;a mod
  185.         move.w    #$0000,$dff066    ;d mod
  186.         move.w    #$ffff,$dff044    ;fw mask
  187.         move.w    #$ffff,$dff046    ;lw mask
  188.         move.w    #%0000100111110000,$dff040    ;con0
  189.         move.w    #%0000000000000000,$dff042    ;con1
  190.         move.w    #2*64+56,$dff058    ;size        
  191.         jsr    Blit_Wait
  192.         move.l    #colours3,$dff050    ;a source IM
  193.         move.l    #colours3+4,$dff054    ;d source
  194.         move.w    #$0000,$dff064    ;a mod
  195.         move.w    #$0000,$dff066    ;d mod
  196.         move.w    #$ffff,$dff044    ;fw mask
  197.         move.w    #$ffff,$dff046    ;lw mask
  198.         move.w    #%0000100111110000,$dff040    ;con0
  199.         move.w    #%0000000000000010,$dff042    ;con1
  200.         move.w    #2*64+57,$dff058    ;size        
  201.         jsr    Blit_Wait
  202.         JSR     STAR_MOVE    
  203.         rts
  204.          
  205. colourptr:    dc.w $0
  206.  
  207. waveplace2: lea wavy,a0
  208.          add.w waveptr2,a0
  209.          cmp.w #$8888,(a0)
  210.          bne wcolour12
  211.          clr.W waveptr2
  212.          bra.s waveplace2
  213. wcolour12:     move.w (a0),wave1+6
  214.             add.w #2,waveptr2
  215.             rts
  216.             
  217. wavecycle:    lea wave+6,a0
  218.         move.w #89,d0
  219. wavecycle1:    move.w 8(a0),(a0)
  220.         add.w #8,a0
  221.         dbf d0,wavecycle1
  222.         rts
  223.  
  224. waveptr2:    dc.w $0
  225.  
  226. colourtable: 
  227.         
  228.           dc.w $f00
  229.          dc.w $f10,$f20,$f30,$f40,$f50,$f60,$f70,$f80,$f90,$fa0,$fb0,$fc0,$fd0,$fe0,$ff0
  230.          dc.w $ef1,$df2,$cf3,$bf4,$af5,$9f6,$8f7,$7f8,$6f9,$5fa,$4fb,$3fc,$2fd,$1fe,$0ff
  231.          dc.w $0ef,$0df,$0cf,$0bf,$0af,$09f,$08f,$07f,$06f,$05f,$04f,$03f,$02f,$01f,$00f
  232.          dc.w $10e,$20d,$30c,$40b,$50a,$609,$708,$807,$906,$a05,$b04,$c03,$d02,$e01
  233.  
  234.     dc.w $8888
  235.  
  236. wavy:    dc.w    $000,$000,$000,$000,$000
  237.     dc.w    $111,$111,$111,$111
  238.     dc.w    $222,$222,$222
  239.     dc.w    $333,$333
  240.     dc.w    $444,$555
  241.     dc.w    $666,$666
  242.     dc.w    $777,$777,$777
  243.     dc.w    $888,$888,$888,$888
  244.     dc.w    $999,$999,$999,$999,$999
  245.     dc.w    $888,$888,$888,$888
  246.     dc.w    $777,$777,$777
  247.     dc.w    $666,$666
  248.     dc.w    $555,$444
  249.     dc.w    $333,$333
  250.     dc.w    $222,$222,$222
  251.     dc.w    $111,$111,$111,$111
  252.     dc.w    $8888
  253.  
  254.     include    Noise.INC
  255.  
  256.  
  257.     ****************************************
  258.     *    Multi-purpose Stafield Creator    *
  259.     *                       *    
  260.     *        Written by Andy Clark         *    
  261.     *                       *    
  262.     *           3rd August 1990           *    
  263.     *                       *    
  264.     *      Strictly for use by anyone      *    
  265.     ****************************************
  266.  
  267.     ****************************************
  268.     *     Use the four equates for fx      *    
  269.     ****************************************
  270.     
  271. star_top    equ    $3c        ;first line
  272. star_height    equ    108        ;number of lines
  273. density        equ    1        ;density of stars (0-3)
  274. direction    equ    0        ;0-right 1-left
  275.  
  276.     ****************************************
  277.     *     Use the four equates for fx      *    
  278.     ****************************************
  279.  
  280.  
  281. den:    dc.b    3,7,15,31
  282.  
  283. numst0:    dc.w    0
  284. numst1:    dc.w    0
  285. numst2:    dc.w    0
  286.  
  287. sth0:    dc.l    7    ;height
  288. sth1:    dc.l    5
  289. sth2:    dc.l    3
  290.  
  291. stary:    dc.w    0    ;current y position
  292. stardat:dc.l    0    ;data for display
  293. starcnt:dc.l    0    ;number of lines used
  294. msb:    dc.w    0    ;gmt check
  295. dens:    dc.l    0    ;density store
  296. starh:    dc.l    0    ;store height
  297.  
  298.     ** Call this once to set up stars
  299.     ** Attention: You must have sp0-2 defined on copper list    
  300.  
  301. Stars_on:
  302.     lea    den,a0
  303.     move.l    #density,d0
  304.     move.b    (a0,d0),dens+3
  305.  
  306.     lea    st0,a0
  307.     move.l    #star0,d0
  308.     move.l    sth0,d1
  309.     jsr    setstars
  310.     lea    st1,a0
  311.     move.l    #star1,d0
  312.     move.l    sth1,d1
  313.     jsr    setstars
  314.     lea    st2,a0
  315.     move.l    sth2,d1
  316.     move.l    #star2,d0
  317.     jsr    setstars
  318.  
  319.     move.l    #st0,d0
  320.     move.w    d0,sp0+6
  321.     swap    d0
  322.     move.w    d0,sp0+2
  323.  
  324.     move.l    #st1,d0
  325.     move.w    d0,sp1+6
  326.     swap    d0
  327.     move.w    d0,sp1+2
  328.  
  329.     move.l    #st2,d0
  330.     move.w    d0,sp2+6
  331.     swap    d0
  332.     move.w    d0,sp2+2
  333.     rts
  334.  
  335. Setstars:
  336.     move.b    #0,msb
  337.     move.b    #star_top,stary
  338.     move.l    d0,stardat
  339.     move.l    d1,starh
  340.     move.l    #0,starcnt
  341.  
  342. .lp2:    jsr    random
  343.     and.l     dens,d1
  344.     add.b    d1,stary    ;updt stary position
  345.     bcc    .lp3        ;over gmt?
  346.     move.b    #1,msb
  347. .lp3:    add.l    d1,starcnt    ;inc count
  348.     move.l    #star_height,d0
  349.     cmp.l    starcnt,d0
  350.     blt    .lp        ;reached end
  351.     move.b    stary,(a0)    ;set ystart
  352.     bclr.b    #2,3(a0)
  353.     tst.b    msb        ;check over
  354.     beq    .lp5
  355.     bset.b    #2,3(a0)
  356. .lp5:    move.b    stary,2(a0)    
  357.     move.b    starh+3,d1
  358.     add.b    d1,2(a0)    ;set ystop
  359.     bcc    .lp4
  360.     move.b    #1,msb
  361. .lp4:    bclr.b    #1,3(a0)
  362.     tst.b    msb        ;check over
  363.     beq    .lp6
  364.     bset.b    #1,3(a0)
  365. .lp6:    jsr    random
  366.     move.b    d1,1(a0)    ;set xpos
  367.     add.b    #1,stary    ;updt for next y position
  368.     move.b    starh+3,d1
  369.     add.b    d1,stary
  370.     add.l    #4,a0        ;point to data
  371.     move.l    stardat,a1
  372.     move.l    starh,d1
  373.     subq.l    #1,d1
  374. .lp7:    move.l    (a1)+,(a0)+    ;put data into display
  375.     dbra    d1,.lp7
  376.     add.l    #1,starcnt    ;in count
  377.     move.l    starh,d1
  378.     add.l    d1,starcnt
  379.     move.l    #star_height,d0
  380.     cmp.l    starcnt,d0
  381.     blt    .lp        ;reached end
  382.     bra    .lp2        ;get next star
  383. .lp:    move.l    #0,(a0)
  384.     rts
  385.  
  386.     ** Call this every frame
  387.  
  388. Star_move:
  389.     lea    st0,a0
  390.     move.l    #3,d0        ;speed
  391.     move.l    sth0,d2
  392.     asl.l    #2,d2
  393.     add.l    #4,d2
  394.     jsr    stmov
  395.     lea    st1,a0
  396.     move.l    #2,d0        ;speed
  397.     move.l    sth1,d2
  398.     asl.l    #2,d2
  399.     add.l    #4,d2
  400.     jsr    stmov
  401.     lea    st2,a0
  402.     move.l    #1,d0        ;speed
  403.     move.l    sth2,d2
  404.     asl.l    #2,d2
  405.     add.l    #4,d2
  406.     jsr    stmov
  407.     rts
  408. stmov:    move.l    #direction,d1
  409.     beq    .lp
  410.     neg.l    d0
  411. .lp    add.b    d0,1(a0)
  412.     add.l    d2,a0
  413.     tst.l    (a0)
  414.     bne    .lp
  415.     rts
  416.  
  417. random    moveq.l    #0,d1
  418.     lea    $fc0000,a6
  419.     move.l    framecount,d5
  420.     move.b    (a6,d5),d1
  421.     and.l    #$07,d5
  422.     lea    rseed,a6
  423.     move.b    (a6,d5),d5
  424.     eor.b    d5,d1
  425.     add.l    d1,framecount
  426.     cmp.l    #2000,framecount
  427.     blt    noz2
  428.     move.l    #0,framecount
  429.     and.l    #7,d5
  430.     move.b    d1,(a6,d5)
  431.     eor.l    d1,framecount
  432. noz2    rts
  433. rseed    dc.b    $94,$2f,$c7,$ea,$93,$c5,$76,$89
  434. framecount:
  435.     dc.l    0
  436.  
  437. st0:    ds.b    200*4
  438. st1:    ds.b    200*4
  439. st2:    ds.b    200*4
  440.  
  441. star0:    dc.w $3800,$3800
  442.     dc.w $4400,$6400
  443.     dc.w $A200,$D200
  444.     dc.w $8200,$A600
  445.     dc.w $8A00,$8600
  446.     dc.w $4400,$5C00
  447.     dc.w $3800,$3800
  448.  
  449. star1:    dc.w $7000,$7000
  450.     dc.w $C800,$8800
  451.     dc.w $8800,$9800
  452.     dc.w $8800,$B800
  453.     dc.w $7000,$7000
  454.  
  455. star2:    dc.w $C000,$4000
  456.     dc.w $A000,$E000
  457.     dc.w $4000,$4000
  458.  
  459.  
  460.     ****************************************
  461.     *     Bottom of Starfield Routine      *    
  462.     ****************************************
  463.  
  464.  
  465. scroll:    move.l     #$DFF000,A6
  466.     MOVE.L     #SCREEN,d0
  467.     move.l     d0,d1
  468.     addq.l     #2,d1        ; a2 points to next word
  469.     move.l     d1,$50(a6)    ; srce 
  470.     move.l     d0,$54(a6)    ; Dest 
  471.     clr.w     $064(A6)        ; No modulos
  472.     clr.w     $066(A6)
  473.     move.l     #-1,$044(A6)    ; Set all masks on
  474.     clr.w     $042(A6)    ; BLTCON1 = Blitter control reg.1
  475.     MOVE.W     #%1101100111110000,$040(a6)
  476.     move.w     #16*64+22,$058(a6)
  477.     subq.b     #1,charcount
  478.     bne.s     nocharyet
  479.     move.b     #5,charcount    
  480.     move.l     textptr,a0
  481.     moveq     #0,d0
  482.     move.b     (a0)+,d0
  483.     cmpi.b     #0,(a0)
  484.     bne.s     nottextend
  485.     move.l     #texttab,a0
  486.  
  487. nottextend:
  488.     move.l     a0,textptr
  489.     bsr.s     putletter
  490.  
  491. nocharyet:
  492.     rts
  493.  
  494. putletter:
  495.     lea     fontmap,a0
  496.     subi.b     #32,d0
  497.  
  498. rndagain:    
  499.     cmpi.b     #20,d0        
  500.     blt.s     okputchar
  501.     adda.l     #40*16,a0    ; Size of 1 line of chs
  502.     subi.b     #20,d0
  503.     bra.s     rndagain
  504.  
  505. okputchar:
  506.     rol.b    #1,d0
  507.     andi.b    #$fe,d0
  508.     add.l    a0,d0
  509.     move.l    #$DFF000,A6
  510.     move.l    #SCREEN,d1
  511.     subi.l    #2,d1
  512.     move.l    d0,$50(a6)
  513.     move.l    d1,$54(A6)
  514.     MOVE.W    #38,$064(A6)
  515.     MOVE.W    #40,$066(A6)
  516.     move.l    #-1,$044(A6)    ; Set all masks on
  517.     clr.w    $042(A6)    ; BLTCON1 = Blitter control reg.1
  518.     MOVE.W    #%0000100111110000,$040(a6)
  519.     move.w    #64*16+1,$058(a6)
  520.     RTS
  521. bitmaparea:    ds.l 1
  522. charcount:    dc.b 16
  523.         EVEN
  524. fontmap:    incbin    16x16.raw_4
  525. textptr:    dc.l texttab
  526. texttab:dc.b    ' HI FOLKS THIS IS JUST A QUICK INTRO JUST TO LET YOU ALLL NO THAT'
  527.     DC.B    ' POD AX AND FANGS HAVE JOINED SLIPSTREAM NOW FOR THE CREDITS'
  528.     DC.B    ' CODING BY POD WITH HELP FROM (FANGS) GRAPHICS BY FAST EDDIE OF ARCHAOS'
  529.     DC.B    ' FONT TAKEN FROM DEFJAM INTRO MUSIC BY ???? OF ?????'
  530.     DC.B    ' NOW FOR SOME PERSONAL GREETINGS ZARCH OF ZARCH (WHEN DO I GET MY FUCKING GAMEBOY BACK CUNT)'
  531.     DC.B    ' KID VIDEO (HOW WAS THE COACH UP HERE) SKOL (I FEEL SORRY FOR YOU COMING UP WITH KID VIDEO)'
  532.     DC.B    ' AX (GET THAT KICK OFF COMP WON) KEV (EEEEEEEEEEEEEE) COSY (I THOUGHT YOU WAS NOT COMING)'
  533.     DC.B    ' PARASITE (HOW THINGS THESE DAYS) FRED (HOPE TO SEE YOU AT THE PARTY THIS TIME) '
  534.     DC.B    'RC (THANKS FOR THE LIFT TO THE PARTY) FANGS (GET CODEING YOU CUNT) WIZOID (WHERES MY VIDS )'
  535.     DC.B    ' SMURF (YOU BLOODY PUFF) NOW FOR THE NORMAL GREETINGS ANARCHY MAG FIELDS L.S.D ARCHAOS CRYSTAL (DEMOS)'
  536.     DC.B    ' SCOOPEX SILENTS DEFJAM MAYHEM MODESTY IPEC ELITE PARADOX PHENOMENA D-MOB ECSTASY CRYPTIC QUARTEX AND TO ALL THE REST I VE FORGOT '
  537.     DC.B    'ANY WAY IM OF SEE YOU   POD             TEXT WARP                                     '
  538.     DC.B    '                                                                                       '
  539.     DC.B    0
  540.     
  541. SCREEN    DCB.B    $2c8,0
  542. music    incbin df2:mod.loader
  543. logo:    incbin logo.raw
  544.  
  545. colos:    dc.w    $f00
  546.     dc.w    $f10,$f20,$f30,$f40,$f50,$f60,$f70,$f80
  547.     dc.w    $f90,$fa0,$fb0,$fc0,$fd0,$fe0,$ff0
  548.     dc.w    $ef0,$df0,$cf0,$bf0,$af0,$9f0,$8f0,$7f0
  549.     dc.w    $6f0,$5f0,$4f0,$3f0,$2f0,$1f0,$0f0
  550.     dc.w    $0f1,$0f2,$0f3,$0f4,$0f5,$0f6,$0f7,$0f8
  551.     dc.w    $0f9,$0fa,$0fb,$0fc,$0fd,$0fe,$0ff
  552.     dc.w    $0ef,$0df,$0cf,$0bf,$0af,$09f,$08f,$07f
  553.     dc.w    $06f,$05f,$04f,$03f,$02f,$01f,$00f
  554.     dc.w    $10f,$20f,$30f,$40f,$50f,$60f,$70f,$80f
  555.     dc.w    $90f,$a0f,$b0f,$c0f,$d0f,$e0f,$f0f
  556.     dc.w    $f0e,$f0d,$f0c,$f0b,$f0a,$f09,$f08,$f07
  557.     dc.w    $f06,$f05,$f04,$f03,$f02,$f01
  558.     dc.w    $f00
  559.     dc.w    $f10,$f20,$f30,$f40,$f50,$f60,$f70,$f80
  560.     dc.w    $f90,$fa0,$fb0,$fc0,$fd0,$fe0,$ff0
  561.     dc.w    $ef0,$df0,$cf0,$bf0,$af0,$9f0,$8f0,$7f0
  562.     dc.w    $6f0,$5f0,$4f0,$3f0,$2f0,$1f0,$0f0
  563.     dc.w    $0f1,$0f2,$0f3,$0f4,$0f5,$0f6,$0f7,$0f8
  564.     dc.w    $0f9,$0fa,$0fb,$0fc,$0fd,$0fe,$0ff
  565.     dc.w    $0ef,$0df,$0cf,$0bf,$0af,$09f,$08f,$07f
  566.     dc.w    $06f,$05f,$04f,$03f,$02f,$01f,$00f
  567.     dc.w    $10f,$20f,$30f,$40f,$50f,$60f,$70f,$80f
  568.     dc.w    $90f,$a0f,$b0f,$c0f,$d0f,$e0f,$f0f
  569.     dc.w    $f0e,$f0d,$f0c,$f0b,$f0a,$f09,$f08,$f07
  570.     dc.w    $f06,$f05,$f04,$f03,$f02,$f01
  571.     dc.w    $ffff
  572.  
  573.  
  574.  
  575.